home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / musique-menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  844b  |  23 lines
  1. 85 LC=646:SR=53281:BD=53280:UC=53272
  2. 700 PRINT"[147]":POKESR,1:POKELC,6:POKEBD,15:POKEUC,21
  3. 710 PRINTTAB(8)"CANTIQUES POUR LE DIMANCHE
  4. 720 [153][163]8)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  5. 730 PRINT"(1) PUER NOBIS NASCITUR":PRINT"(CANON POUR TROIS VOIX)
  6. 740 [153]"(2) A MON SECOURS":[153]"(ST. LOUIS DE MONTFORT)
  7. 750 PRINT"(3) LE QUATRIEME COMMANDEMENT
  8. 760 [153][163]18)"+ + +
  9. 770 PRINT"VOTRE CHOIX:":PRINT"[145]";:PRINTTAB(16);
  10. 780 POKE198,0:POKE204,0:POKE207,0
  11. 790 GETA$:IFA$=""THEN790
  12. 800 A=VAL(A$)
  13. 810 IFA>3ORA<1THEN790
  14. 820 PRINT"[157]"A:POKE207,0:POKE204,1
  15. 830 IFA=1THENPRINTTAB(7)"PUER NOBIS NASCITUR..LOADING"
  16. 840 IFA=2THENPRINTTAB(8)"A MON SECOURS...LOADING
  17. 850 [139]A[178]3[167][153]"LE QUATRIEME COMMANDEMENT...LOADING
  18. 860 ONAGOTO870,880,890
  19. 870 PRINTCHR$(5)"";"LOAD";CHR$(34);"FR/PUER NOBIS";CHR$(34);",8":GOTO900
  20. 880 PRINTCHR$(5)"";"LOAD";CHR$(34);"A MON SECOURS";CHR$(34);",8":GOTO900
  21. 890 PRINTCHR$(5)"";"LOAD";CHR$(34);"4EME COM";CHR$(34);",8"
  22. 900 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13
  23.